(comint-replace-by-expanded-history-before-point):

When none of the ! or ^ constructs match, move forward one char.

diff --git a/lisp/comint.el b/lisp/comint.el
index fe4376996c6c1c8ba6aed48e00d072aa301da4a4..3da9fd1d8a972e205c5a97e014b3014b0e2a4a3d 100644 (file)
--- a/lisp/comint.el
+++ b/lisp/comint.el
@@ -1058,7 +1058,7 @@ than the logical beginning of line."
                   (replace-match new t t)
                   (message "History item: substituted"))))
              (t
-              (goto-char (match-end 0))))))))
+              (forward-char 1)))))))
 
 
 (defun comint-magic-space (arg)